Know Your Hockey - The Greatest Player Resource/Know Your Hockey: The Greatest Player Resource.iso/hockey/director/ktgcst.cst/00066_Script_ For Def Field

Text File | 1998-09-28 | 2KB | 66 lines

global EnterRollist,XitRollist,lastrollover,gButtonState,thisrollover,gb
on SpriteOn
  set the blend of sprite(thisrollover) = 100
end


on Spriteoff
  set mysprite = lastrollover
  put lastrollover
  put getat(gbuttonstate,mysprite)
  if getat(gbuttonstate,mysprite) = 0 then
    set the blend of sprite(mysprite) = 0
  end if
end


on SpriteoffBall
  set mysprite = lastrollover
  if mysprite < 20 then exit
  if getat(gbuttonstate,mysprite) = 0 then
    set the blend of sprite(lastrollover) = 0
    set the blend of sprite((lastrollover)-20) = 0
  end if
end


on SpriteOnBall
  set mysprite = thisrollover
  if mysprite < 20 then exit
  set the blend of sprite(thisrollover) = 100
  set the blend of sprite(thisrollover-20) = 100
end


on SpriteoffField
  set mysprite = lastrollover+20
  if getat(gbuttonstate,mysprite) = 0 then
    set the blend of sprite(lastrollover) = 0
    set the blend of sprite(lastrollover+20) = 0
    updateStage
  end if
end


on SpriteOnField
  set the blend of sprite(thisrollover) = 100
  set the blend of sprite(thisrollover+20) = 100
end

on SpriteoffField2
  set mysprite = lastrollover-14
  if mysprite < 1 then exit
  set upper = lastrollover+6
  if getat(gbuttonstate,upper) = 0 then
    set the blend of sprite mysprite = 0
    set the blend of sprite upper = 0
  end if
end


on SpriteOnField2
  if thisrollover < 14 then exit
  set the blend of sprite(thisrollover-14) = 100
  set the blend of sprite(thisrollover+6) = 100
end